home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / program / lvodump.lha / LVODumpSupport.s < prev    next >
Text File  |  1995-08-31  |  715b  |  42 lines
  1.     XDEF    UpCaseStr
  2.     
  3. UpCaseStr:
  4.     cmpi.b    #0,(A0)+
  5.     beq.s    .Exit
  6.  
  7.     cmpi.b    #'a',-1(A0)
  8.     bcs.s    UpCaseStr
  9.  
  10.     cmpi.b    #'z'+1,-1(A0)
  11.     bcc.s    UpCaseStr
  12.  
  13.     andi.b    #223,-1(A0)
  14.     bra.s    UpCaseStr
  15.  
  16. .Exit    rts
  17.  
  18.  
  19.     SECTION    ,DATA
  20.  
  21.     XDEF    CTemplate
  22.         XDEF    Template
  23.     XDEF    CDirectives
  24.     XDEF    Directives
  25.     XDEF    FNameEnd
  26.     XDEF    FDPath
  27.     XDEF    Banner
  28.     
  29. CSI    EQU    $9B
  30.  
  31. CTemplate    dc.b    ','
  32. Template        dc.b    'FILENAME/A,NOTAB/S,NOHEADER/S,NOBASE/S,NOPRIVATE/S: ',0
  33.  
  34. CDirectives    dc.b    ','
  35. Directives    dc.b    '##BASE,##BIAS,##PRIVATE,##PUBLIC,##END.',0
  36.  
  37. FNameEnd    dc.b    '_lib.fd',0
  38. FDPath        dc.b    'fd:',0
  39.  
  40. Banner        dc.b    CSI,'1mLVODump 1.0',CSI,'0m © Marco Favaretto 1995',$0A
  41.         dc.b    'Usage: LVODump <.fd file> [NOTAB] [NOHEADER] [NOBASE] [NOPRIVATE]',0
  42.